
R version 4.2.0 (2022-04-22) -- "Vigorous Calisthenics"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: aarch64-apple-darwin20 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

  Natural language support but running in an English locale

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> #Replication file for:
> #Sam Schmitt, Isaac D. Mehlhaff, and Emily Cottle Ommundsen. "Integrating Classroom and Community with Undergraduate Civically Engaged Research. PS: Political Science and Politics. April 2023.
> 
> #if necessary, set working directory to location of data files
> 
> #setwd()
> 
> #read in data
> 
> rethink_comm <- read.csv("rethink_comm.csv")
> leadership <- read.csv("leadership.csv")
> knowledge_comm <- read.csv("knowledge_comm.csv")
> optimist_change <- read.csv("optimist_change.csv")
> change_polisci <- read.csv("change_polisci.csv")
> 
> #calculate response rate (data reported in "evals_standard.pdf")
> 
> round(28/43, 2)
[1] 0.65
> 
> #calculate percent who say the course led them to rethink their approach to community involvement
> 
> round(mean(rethink_comm$code, na.rm = TRUE), 2)
[1] 0.96
> 
> #calculate percent who say the course led them to change their approach to leadership
> 
> round(mean(leadership$code, na.rm = TRUE), 2)
[1] 0.77
> 
> #calculate percent who say the course increased their knowledge of their community
> 
> round(mean(knowledge_comm$code, na.rm = TRUE), 2)
[1] 1
> 
> #calculate percent who say the course made them more optimistic about their ability to make changes in their community
> 
> round(mean(optimist_change$code, na.rm = TRUE), 2)
[1] 0.73
> 
> #calculate percent who say the course led them to change their approach to the study of political science
> 
> round(mean(change_polisci$code, na.rm = TRUE), 2)
[1] 0.77
> 
> proc.time()
   user  system elapsed 
  0.081   0.021   0.093 
